home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
UTILSTIC
/
SYSID47.LZH
/
PAGE_18.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-12-08
|
1KB
|
33 lines
procedure page_18;
var
xbyte: byte;
begin
TextColor(White);
GotoXY((twidth div 2) - 15, 1);
Writeln('Thank You for using INFOPLUS!!');
Writeln;
TextColor(LightCyan);
Writeln(' If you have any questions, bug reports, or suggestions, I can be');
Writeln('reached at the following places:');
Writeln;
TextColor(LightRed);
Writeln('Internet Mail : andyross@infopls.UUCP or andyross@ddsw1.MCS.COM');
Writeln('Unix Mail : ..!uunet!ddsw1!infopls!andyross');
Writeln('RelayNet Mail : ->METASYS');
Writeln('Infoplus BBS : (708)537-0247 (1200/2400)');
Writeln('RCS Defender : (708)390-6603 (1200/2400, 2 lines)');
Writeln('Mainframe : (708)364-0425 (1200/2400/9600 HST)');
Writeln('Beacon : (708)615-0845 (1200/2400)');
Writeln('ddsw1 : (708)808-7300 (1200/2400, 6 lines)');
Writeln(' (708)808-7305 (PEP)');
Window(1, tlength - 2, twidth, tlength - 2);
xbyte:=TextAttr;
TextColor(White);
TextBackground(Brown);
ClrScr;
Write('INFOPLUS ', qversion, ', by Andrew Rossmann, ' + qdate);
TextAttr:=xbyte;
end;